Chip 2005 June/ccd0605.iso/Software/Shareware/Comunicatii/bandman/bwmsetup.exe/{app}/bwm.exe/0/RCDATA/TADDBATCHFORM/TADDBATCHFORM.txt

Text File | 2005-05-01 | 17KB | 729 lines

object AddBatchForm: TAddBatchForm
  Left = 257
  Top = 217
  ActiveControl = edRuleName
  BorderStyle = bsDialog
  Caption = 'Add Rules Batch'
  ClientHeight = 353
  ClientWidth = 492
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Wiz: TDelphiWizard
    Left = 0
    Top = 296
    Width = 492
    Height = 57
    EnableHelp = False
    NoteBook = Notebook
    BackCaption = '< &Back'
    NextCaption = '&Next >'
    AbortCaption = '&Cancel'
    ReadyCaption = '&Finish'
    HelpCaption = '&Help'
    OnEndClick = WizEndClick
    OnPageChange = WizPageChange
    OnPageChanging = WizPageChanging
  end
  object Notebook: TNotebook
    Left = 0
    Top = 57
    Width = 492
    Height = 239
    Align = alClient
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'GENERAL'
      object rgFilterDirection: TRadioGroup
        Left = 46
        Top = 85
        Width = 300
        Height = 57
        Caption = 'Traffic Direction'
        Columns = 3
        ItemIndex = 2
        Items.Strings = (
          'Incoming'
          'Outgoing'
          'Either')
        TabOrder = 1
      end
      object rgTransferRate: TGroupBox
        Left = 45
        Top = 149
        Width = 300
        Height = 76
        Caption = 'Transfer Rate Limit'
        TabOrder = 2
        object cmbRate: TComboBox
          Left = 16
          Top = 43
          Width = 265
          Height = 21
          DropDownCount = 12
          ItemHeight = 13
          TabOrder = 2
        end
        object rbBytes: TRadioButton
          Left = 94
          Top = 17
          Width = 66
          Height = 17
          Caption = 'Bytes/sec'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = rbBytesClick
        end
        object rbBits: TRadioButton
          Left = 168
          Top = 17
          Width = 57
          Height = 17
          Caption = 'Bit/sec'
          TabOrder = 1
          OnClick = rbBitsClick
        end
        object rbQuota: TRadioButton
          Left = 232
          Top = 17
          Width = 57
          Height = 17
          Caption = 'Quota'
          TabOrder = 3
          OnClick = rbQuotaClick
        end
      end
      object GroupBox1: TGroupBox
        Left = 46
        Top = 14
        Width = 299
        Height = 64
        Caption = 'Base Rule Name'
        TabOrder = 0
        object edRuleName: TEdit
          Left = 11
          Top = 28
          Width = 274
          Height = 21
          TabOrder = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'OPTIONS'
      object Label3: TLabel
        Left = 26
        Top = 11
        Width = 311
        Height = 13
        Caption =
          'Please select a protocol and a network interface to apply the ru' +
          'les'
      end
      object gbProtocol: TGroupBox
        Left = 37
        Top = 41
        Width = 300
        Height = 72
        Caption = 'Protocol'
        TabOrder = 0
        object cmbProtocols: TComboBox
          Left = 16
          Top = 30
          Width = 265
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            'TCP'
            'UDP'
            'TCP or UDP')
        end
      end
      object gbInterface: TGroupBox
        Left = 37
        Top = 132
        Width = 300
        Height = 77
        Caption = 'Apply Rules on Interface'
        TabOrder = 1
        object cmbApplyOn: TComboBox
          Left = 16
          Top = 40
          Width = 265
          Height = 22
          Style = csOwnerDrawFixed
          ItemHeight = 16
          ItemIndex = 0
          TabOrder = 0
          Text = 'Any'
          OnDrawItem = cmbApplyOnDrawItem
          Items.Strings = (
            'Any')
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'IPADDR'
      object Label2: TLabel
        Left = 26
        Top = 11
        Width = 247
        Height = 13
        Caption = 'The rules will apply to the specified IP address range'
      end
      object gbRulesRange: TGroupBox
        Left = 32
        Top = 40
        Width = 265
        Height = 105
        Caption = 'IP Address Range'
        TabOrder = 0
        object lblRangeFrom: TLabel
          Left = 16
          Top = 32
          Width = 23
          Height = 13
          Caption = 'From'
        end
        object lblRangeTo: TLabel
          Left = 16
          Top = 64
          Width = 13
          Height = 13
          Caption = 'To'
        end
      end
      object rgSubstTo: TRadioGroup
        Left = 32
        Top = 152
        Width = 265
        Height = 70
        Caption = 'Substitute IP Addresses'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          'Source'
          'Destination')
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'VARIABLE'
      object lblRules: TLabel
        Left = 24
        Top = 16
        Width = 308
        Height = 13
        Caption =
          '%u rules will be created with the address and port specified bel' +
          'ow'
      end
      object gbVarPort: TGroupBox
        Left = 184
        Top = 54
        Width = 289
        Height = 171
        Caption = 'Source Port'
        TabOrder = 1
        object rbVarPortAny: TRadioButton
          Left = 11
          Top = 47
          Width = 49
          Height = 17
          Caption = 'Any'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = VarPortChange
        end
        object rbVarPortSinglePort: TRadioButton
          Left = 11
          Top = 72
          Width = 73
          Height = 17
          Caption = 'Single port'
          TabOrder = 1
          OnClick = VarPortChange
        end
        object rbVarPortRange: TRadioButton
          Left = 11
          Top = 97
          Width = 73
          Height = 17
          Caption = 'Port Range'
          TabOrder = 2
          OnClick = VarPortChange
        end
        object rbVarPortList: TRadioButton
          Left = 11
          Top = 122
          Width = 73
          Height = 17
          Caption = 'Port List'
          TabOrder = 3
          OnClick = VarPortChange
        end
        object VarIpPortNotebook: TNotebook
          Left = 113
          Top = 41
          Width = 129
          Height = 99
          PageIndex = 3
          TabOrder = 4
          object TPage
            Left = 0
            Top = 0
            Caption = 'SINGLE'
            object edVarIpSinglePort: TEdit
              Left = 4
              Top = 29
              Width = 43
              Height = 21
              TabOrder = 0
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'RANGE'
            object leVarPortFrom: TLabeledEdit
              Left = 6
              Top = 54
              Width = 43
              Height = 21
              EditLabel.Width = 23
              EditLabel.Height = 13
              EditLabel.Caption = 'From'
              TabOrder = 0
            end
            object leVarPortTo: TLabeledEdit
              Left = 61
              Top = 54
              Width = 44
              Height = 21
              EditLabel.Width = 13
              EditLabel.Height = 13
              EditLabel.Caption = 'To'
              TabOrder = 1
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'LIST'
            object lbVarPortList: TListBox
              Left = 2
              Top = 1
              Width = 123
              Height = 67
              ItemHeight = 13
              MultiSelect = True
              TabOrder = 0
            end
            object btnVarIpAddPort: TButton
              Left = 4
              Top = 73
              Width = 54
              Height = 23
              Caption = 'Add'
              TabOrder = 1
              OnClick = btnVarIpAddPortClick
            end
            object btnVarIpDelPort: TButton
              Left = 67
              Top = 73
              Width = 56
              Height = 23
              Caption = 'Remove'
              TabOrder = 2
              OnClick = btnVarIpDelPortClick
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'EMPTY'
          end
        end
      end
      object gbVarAddr: TGroupBox
        Left = 21
        Top = 54
        Width = 148
        Height = 171
        Caption = 'Source Address'
        TabOrder = 0
        object lbVarAddr: TListBox
          Left = 12
          Top = 27
          Width = 123
          Height = 132
          ItemHeight = 13
          TabOrder = 0
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'STATICIP'
      object lblStaticIp: TLabel
        Left = 16
        Top = 16
        Width = 133
        Height = 13
        Caption = 'Please specify a %s address'
      end
      object gbStaticIpAddr: TGroupBox
        Left = 21
        Top = 54
        Width = 329
        Height = 171
        Caption = '%s IP Address'
        TabOrder = 0
        object rbStaticMyComputer: TRadioButton
          Left = 11
          Top = 27
          Width = 113
          Height = 17
          Caption = 'Local host'
          TabOrder = 0
          OnClick = StaticUpdateControls
        end
        object rbStaticIpAddr: TRadioButton
          Left = 11
          Top = 80
          Width = 113
          Height = 17
          Caption = 'Single IP Address'
          TabOrder = 1
          OnClick = StaticUpdateControls
        end
        object rbStaticIpRange: TRadioButton
          Left = 11
          Top = 108
          Width = 113
          Height = 17
          Caption = 'Whole IP Range'
          TabOrder = 2
          OnClick = StaticUpdateControls
        end
        object rbStaticIpAny: TRadioButton
          Left = 11
          Top = 136
          Width = 113
          Height = 17
          Caption = 'Any IP Address'
          Checked = True
          TabOrder = 3
          TabStop = True
          OnClick = StaticUpdateControls
        end
        object rbStaticMacAddress: TRadioButton
          Left = 11
          Top = 54
          Width = 113
          Height = 17
          Caption = 'MAC Address'
          TabOrder = 4
          OnClick = StaticUpdateControls
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'STATICPORT'
      object lblStaticPort: TLabel
        Left = 16
        Top = 16
        Width = 105
        Height = 13
        Caption = 'Please specify %s port'
      end
      object gbStaticIpPort: TGroupBox
        Left = 21
        Top = 54
        Width = 329
        Height = 171
        Caption = '%s Port'
        TabOrder = 0
        object rbStaticPortAny: TRadioButton
          Left = 11
          Top = 43
          Width = 49
          Height = 17
          Caption = 'Any'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = StaticPortChange
        end
        object rbStaticPortSinglePort: TRadioButton
          Left = 11
          Top = 68
          Width = 73
          Height = 17
          Caption = 'Single port'
          TabOrder = 1
          OnClick = StaticPortChange
        end
        object rbStaticPortRange: TRadioButton
          Left = 11
          Top = 93
          Width = 73
          Height = 17
          Caption = 'Port Range'
          TabOrder = 2
          OnClick = StaticPortChange
        end
        object rbStaticPortList: TRadioButton
          Left = 11
          Top = 118
          Width = 73
          Height = 17
          Caption = 'Port List'
          TabOrder = 3
          OnClick = StaticPortChange
        end
        object StaticIpPortNotebook: TNotebook
          Left = 185
          Top = 37
          Width = 129
          Height = 99
          PageIndex = 3
          TabOrder = 4
          object TPage
            Left = 0
            Top = 0
            Caption = 'SINGLE'
            object edStaticIpSinglePort: TEdit
              Left = 4
              Top = 29
              Width = 43
              Height = 21
              TabOrder = 0
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'RANGE'
            object leStaticPortFrom: TLabeledEdit
              Left = 6
              Top = 54
              Width = 43
              Height = 21
              EditLabel.Width = 23
              EditLabel.Height = 13
              EditLabel.Caption = 'From'
              TabOrder = 0
            end
            object leStaticPortTo: TLabeledEdit
              Left = 61
              Top = 54
              Width = 44
              Height = 21
              EditLabel.Width = 13
              EditLabel.Height = 13
              EditLabel.Caption = 'To'
              TabOrder = 1
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'LIST'
            object lbStaticPortList: TListBox
              Left = 2
              Top = 1
              Width = 123
              Height = 67
              ItemHeight = 13
              MultiSelect = True
              TabOrder = 0
            end
            object btnStaticIpAddPort: TButton
              Left = 4
              Top = 73
              Width = 54
              Height = 23
              Caption = 'Add'
              TabOrder = 1
              OnClick = btnStaticIpAddPortClick
            end
            object btnStaticIpDelPort: TButton
              Left = 67
              Top = 73
              Width = 56
              Height = 23
              Caption = 'Remove'
              TabOrder = 2
              OnClick = btnStaticIpDelPortClick
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'EMPTY'
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'ADVANCED'
      object Label4: TLabel
        Left = 24
        Top = 16
        Width = 145
        Height = 13
        Caption = 'Specify advanced rule settings'
      end
      object gbTimeTable: TGroupBox
        Left = 16
        Top = 45
        Width = 300
        Height = 89
        Caption = 'Timetable'
        TabOrder = 0
        object cbUseTimeTable: TCheckBox
          Left = 18
          Top = 24
          Width = 209
          Height = 17
          Caption = 'Use the following schedule'
          TabOrder = 0
        end
        object cmbTimeTables: TComboBox
          Left = 16
          Top = 53
          Width = 269
          Height = 21
          Style = csDropDownList
          ItemHeight = 0
          TabOrder = 1
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'PREVIEW'
      object Label1: TLabel
        Left = 11
        Top = 218
        Width = 356
        Height = 13
        Caption =
          'Rules preview. Click the Apply button to create the rules or Fin' +
          'ish to cancel.'
      end
      object VList: TListView
        Left = 7
        Top = 6
        Width = 477
        Height = 197
        Columns = <
          item
            Caption = 'Rule Name'
            Width = 80
          end
          item
            Caption = 'Direct.'
            Width = 45
          end
          item
            Caption = 'Rate Limit'
            Width = 60
          end
          item
            Caption = 'Proto'
            Width = 38
          end
          item
            Caption = 'Source'
            Width = 95
          end
          item
            Caption = 'Destination'
            Width = 95
          end
          item
            Caption = 'Interface'
            Width = 40
          end>
        OwnerData = True
        ReadOnly = True
        RowSelect = True
        SmallImages = MainForm.ImageList
        TabOrder = 0
        ViewStyle = vsReport
        OnData = VListData
      end
      object btnApply: TButton
        Left = 409
        Top = 213
        Width = 75
        Height = 23
        Caption = '&Apply'
        TabOrder = 1
        OnClick = btnApplyClick
      end
    end
  end
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 492
    Height = 57
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption =
      '      This wizard allows you to add a few similar rules within a' +
      ' single action'
    Color = clWhite
    TabOrder = 2
    object ImageLogo: TImage
      Left = 437
      Top = 0
      Width = 55
      Height = 53
      Align = alRight
      AutoSize = True
      Picture.Data = {<image000.bmp>}
    end
    object Bevel1: TBevel
      Left = 0
      Top = 53
      Width = 492
      Height = 4
      Align = alBottom
      Shape = bsBottomLine
    end
  end
end